unit U_fm_CadPage01;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore, dxSkinBlack,
  dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
  dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013White,
  dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010,
  dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter, cxPCdxBarPopupMenu,
  cxButtonEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
  cxDBLookupComboBox, cxTextEdit, cxDBEdit, cxGroupBox, cxPC, Vcl.ImgList,
  Vcl.ComCtrls, cxLabel, Vcl.ToolWin, Vcl.ExtCtrls;

type
  Tfm_CadPage01 = class(TForm)
    pnl1: TPanel;
    tlb1: TToolBar;
    cxLabel1: TcxLabel;
    btn1: TToolButton;
    btn2: TToolButton;
    btn3: TToolButton;
    btn4: TToolButton;
    pnl2: TPanel;
    tlb2: TToolBar;
    btn5: TToolButton;
    btn6: TToolButton;
    btn7: TToolButton;
    btn8: TToolButton;
    btn9: TToolButton;
    btn10: TToolButton;
    btn11: TToolButton;
    btn12: TToolButton;
    btn13: TToolButton;
    btn14: TToolButton;
    btn15: TToolButton;
    btn16: TToolButton;
    btn17: TToolButton;
    btn18: TToolButton;
    il1: TImageList;
    cxImageList1: TcxImageList;
    pnlPnl02_LadoCentro: TPanel;
    PagCtrl01_DadosBasicos: TcxPageControl;
    PagSheet01_DadosBasicos: TcxTabSheet;
    Grp01_Reg: TcxGroupBox;
    Edt_Cadastro: TcxDBTextEdit;
    Edt_Registro: TcxDBTextEdit;
    Lbl_Reg: TcxLabel;
    Lbl_Cad: TcxLabel;
    Lbl_Item: TcxLabel;
    Cmb_FCad04: TcxDBLookupComboBox;
    Cmb_FCad04_BtnEdt: TcxButtonEdit;
    Lbl_Primeiro: TcxLabel;
    Lbl_Apelido: TcxLabel;
    Edt_Apelido: TcxDBTextEdit;
    Edt_Primeiro: TcxDBTextEdit;
     procedure PagCtrl01_DadosBasicosDrawTab(AControl: TcxCustomTabControl;
      ATab: TcxTab; var DefaultDraw: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_CadPage01: Tfm_CadPage01;

implementation

{$R *.dfm}

uses UMyLib;

{ TForm2 }

procedure Tfm_CadPage01.PagCtrl01_DadosBasicosDrawTab(AControl: TcxCustomTabControl;
  ATab: TcxTab; var DefaultDraw: Boolean);
begin
 TMyLib.MyPagCtrlDrawTab(Acontrol,Atab,DefaultDraw);
end;

end.
